home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 August / Macworld (1997-08).dmg / Shareware World / Comms & Internet / PageSpinner 2.0.1 / Settings / FTP / Scripts / Fetch Save To FTP Server.txt < prev   
Text File  |  1997-06-17  |  540b  |  29 lines
  1. property gDesturl : ""
  2.  
  3. on specify_destination()
  4.     local prefsFile
  5.     
  6.     tell application "PageSpinner"
  7.         set thePath to ((get PageSpinner folder) as text) & "Settings:FTP:FTP Server Settings"
  8.     end tell
  9.     
  10.     set prefsFile to open for access file thePath
  11.     
  12.     set gDesturl to read prefsFile
  13.     
  14.     close access of the prefsFile
  15. end specify_destination
  16.  
  17. on open doc
  18.     specify_destination()
  19.     
  20.     with timeout of 60000 seconds
  21.         tell application "Fetch 3.0.1"
  22.             put into url gDesturl item doc
  23.             beep
  24.         end tell
  25.     end timeout
  26.     
  27. end open
  28.  
  29. specify_destination()